home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
comms
/
other
/
getit
/
install
< prev
next >
Wrap
Text File
|
1999-06-14
|
2KB
|
86 lines
; $VER: Install_GetIt 4.1 (15.5.99)
(procedure selDest
(set #installDir
(askdir
(prompt "Select the directory where you want to "
"install GetIt 4.1. An additional directory "
"will *NOT* be created at the location you specify.")
(help "Select the directory where you want to "
"install GetIt 4.1. All necessary files will be copied "
"to that directory during installation. A new directory "
"will *NOT* be created at the location you specify. "
"This means if you want GetIt to be installed in its "
"own directory then you need to create that directory "
"yourself first.")
(default "ram:")
)
)
)
(procedure copyLibs
(set #copyLibsHelp "Copying the libraries needed by GetIt")
(copylib
(prompt "Installing rxsocket.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rxsocket.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rmh.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rmh.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxwiz.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rxwiz.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxasl.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rxasl.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
)
(welcome "Welcome to the GetIt 4.1 installation.\n")
(set @app-name "GetIt 4.1")
(complete 0)
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(selDest)
(set @default-dest #installDir)
(complete 20)
;copy libraries
(copyLibs)
(complete 70)
;copy files
(copyfiles
(source (tackon #source-dir "CORE"))
(dest (#installDir))
(optional force)
(all)
)
(complete 100)